﻿
'---------------------------------------> Clase creada por Diego Barillas <----------------------------------------

Public Class frmRegistrarImagenesEjercicio

    Public imagenInicial As String 'variable que almacena la imagen en tipo string
    Public imagenFinal As String 'variable que almacena la imagen en tipo string
    Public imagenEnbyte1 As Byte() 'variable que almacena la imagen en tipo byte
    Public imagenEnbyte2 As Byte() 'variable que almacena la imagen en tipo byte
    Dim myImg As Image 'variable que almacena la imagen en tipo image
    Dim myImg2 As Image 'variable que almacena la imagen en tipo image

    Private Sub btnAtras_Click(sender As Object, e As EventArgs) Handles btnAtras.Click
        Me.Hide()
        frmRegistrarEjercicio.Show()
    End Sub


    Private Sub subirImagenFinal_Click(sender As Object, e As EventArgs) Handles subirImagenFinal.Click
        cargarImagenFinal() 'llama al metodo cargaImagenInicial

    End Sub

    Private Sub btnSubirImagenInicial_Click(sender As Object, e As EventArgs) Handles btnSubirImagenInicial.Click
        cargarImagenInicial() 'llama al metodo cargaImagenFinal

    End Sub

    Private Sub btnCancelar_Click(sender As Object, e As EventArgs) Handles btnCancelar.Click
        Me.Close()
        frmTransparente.Close()
        frmRegistrarEjercicio.Close()
        frmAsociarMusculosAEjercicio.Close()
    End Sub


    Private Sub cargarImagenInicial()
        Try
            Me.abrirArchivo.ShowDialog() 'abre el openFileDialog
            If Me.abrirArchivo.FileName <> "" Then 'si el archivo abierto no es vacio
                imagenInicial = abrirArchivo.FileName 'guarda el archivo en la variable imagenInicial
                picBoxPosicionInicial.Load(imagenInicial) 'carga la imagen en el pictureBox
                lblImagenInicialNoSubida.Visible = False 'oculta el label que indica que no se ha subido ninguna imagen
                myImg = picBoxPosicionInicial.Image 'Guardar la imagen del PictureBox en el objeto Image
                imagenEnbyte1 = ImagenToBytes(myImg) 'llama al metodo que convierte la imagen a bytes
            End If
        Catch ex As Exception

        End Try

    End Sub


    Private Sub cargarImagenFinal()
        Try
            Me.abrirArchivo2.ShowDialog()  'abre el openFileDialog
            If Me.abrirArchivo2.FileName <> "" Then 'si el archivo abierto no es vacio
                imagenFinal = abrirArchivo2.FileName 'guarda el archivo en la variable imagenInicial
                picBoxPosicionFinal.Load(imagenFinal) 'carga la imagen en el pictureBox
                lbImagenFinalNoSubida.Visible = False  'oculta el label que indica que no se ha subido ninguna imagen
                myImg2 = picBoxPosicionFinal.Image 'Guardar la imagen del PictureBox en el objeto Image
                imagenEnbyte2 = ImagenToBytes(myImg2) 'llama al metodo que convierte la imagen a bytes
            End If
        Catch ex As Exception

        End Try

    End Sub


    Private Sub btnSiguiente_Click(sender As Object, e As EventArgs) Handles btnSiguiente.Click

        'Valida que se hayan seleccionado ambas imagenes'
        If imagenFinal = "Seleccione la imagen " Then 'si no se selecciono ninguna imagen
            imagenFinal = " " 'se guarda como texto vacio
        End If
        If imagenInicial = "Seleccione la imagen " Then  'si no se selecciono ninguna imagen
            imagenInicial = " " 'se guarda como texto vacio
        End If
        If imagenInicial = " " Or imagenInicial = Nothing Then 'si la imagen es vacia o nada
            lblImagenes.Visible = True 'muestra el label de error
        ElseIf imagenFinal = " " Or imagenFinal = Nothing Then 'si la imagen es vacia o nada
            lblImagenes.Visible = True 'muestra el label de error
        ElseIf imagenInicial = " " And imagenFinal = " " Then 'si las dos imagenes son vacias
            lblImagenes.Visible = True 'muestra el label de error
        Else
            lblImagenes.Visible = False 'si las dos fueron seteadas con imagen quita el label
            frmAsociarMusculosAEjercicio.Show() 'pasa al siguiente form
        End If

    End Sub

    Private Sub frmRegistrarImagenesEjercicio_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class